home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1993 September
/
64er_Magazin_93-09_1993_Markt__Technik_de_Side_B.d64
/
flyp 8lines .bib
< prev
next >
Wrap
Text File
|
2022-10-26
|
2KB
|
77 lines
flyp ldy #$00
zl0 ldx ztab,y
zl1 lda $d012
adc #$07
and #$07
ora #$18
sta $d011
jsr wait
dex
bpl zl1
ldx #$05
zl2 jsr wait
dex
bpl zl2
iny
iny
nop
nop
cpy #$10
bne zl0
inc zl0+1
lda zl0+1
bpl zl3
lda #$00
sta zl0+1
zl3 ldx #$04
zl4 dex
bne zl4
rts
wait lda $d012
st3 cmp $d052
bcs st3
rts
;$1700----------------------------------
*= $4200
ztab .byte $04,$04,$05,$05,$06,$06
.byte $06,$06,$06,$06,$05,$05
.byte $04,$03,$03,$02,$01,$01
.byte $01,$01,$01,$01,$01,$02
.byte $02,$03,$04,$05,$05,$06
.byte $06,$06,$06,$06,$06,$06
.byte $05,$05,$04,$03,$02,$02
.byte $01,$01,$01,$01,$01,$01
.byte $01,$02,$03,$03,$04,$05
.byte $05,$06,$06,$06,$06,$06
.byte $06,$06,$05,$04,$03,$03
.byte $02,$01,$01,$01,$01,$01
.byte $01,$01,$02,$02,$03,$03
.byte $04,$04,$04,$05,$05,$05
.byte $06,$06,$06,$05,$05,$04
.byte $03,$02,$02,$01,$01,$01
.byte $01,$01,$01,$01,$02,$02
.byte $03,$04,$05,$05,$06,$06
.byte $06,$06,$06,$06,$06,$05
.byte $04,$04,$03,$02,$02,$01
.byte $01,$01,$01,$01,$01,$01
.byte $02,$03,$03,$04,$05,$06
.byte $06,$06,$06,$06
.byte $06,$05,$04,$03,$02,$02
.byte $01,$01,$01,$01,$01,$02
.byte $02,$03,$04,$05,$06,$06
.byte $06,$06,$06,$06,$05,$04
.byte $04,$03,$02,$01,$01,$01
.byte $01,$01,$01,$02,$03,$04
.byte $05,$05,$06,$06,$06,$06
.byte $06,$05,$04,$03,$02,$02
.byte $01,$01,$01,$01,$01,$02
.byte $02,$03
;$17bf----------------------------------